This third tab just has some example text.
---
title: "Final Question 2"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
logo: logo.png
source_code: embed
social: menu
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(plotly)
library(knitr)
library(DT)
df <- read_csv('ScoobyDoo.csv')
```
{.sidebar}
=======================================================================
### 1. Scooby-Doo
Every Scooby-Doo episode and movie's various variables.
Took ~1 year to watch every Scooby-Doo iteration and track every variable. Many values are subjective by nature of watching but I tried my hardest to keep the data collection consistent.
### 2. Flexdashboard and Plotly
This interactive uses `flexdashboard` and `plotly` to visualize the data.
Dataset
=======================================================================
### The Dataset
```{r}
datatable(df, options = list(
pageLength = 25
))
```
Plots
=======================================================================
Column {data-width=500}
-----------------------------------------------------------------------
#### Plot 1
```{r}
q2p1 <- df %>%
group_by(format) %>%
ggplot()+
geom_bar(mapping=aes(x=format, fill=arrested))+
labs(x='Format', y='Count', fill='arrested')
ggplotly(q2p1)
```
#### Plot 2
```{r, include=FALSE}
dfq2p2 <- df %>%
na_if("NULL") %>%
drop_na(imdb)
```
```{r}
q2p2 <- dfq2p2 %>%
ggplot()+
geom_point(mapping=aes(x=index, y=imdb, color=network))+
labs(x='Order Aired', y='IMDB Rating',color='network')
ggplotly(q2p2)
```
#### Plot 3
```{r}
q2p3 <- df %>%
ggplot()+
geom_histogram(mapping=aes(x=zoinks),bins=27)+
labs(x="Zoinks Count")
ggplotly(q2p3)
```
#### Plot 4
```{r}
q2p4 <- df %>%
ggplot()+
geom_point(mapping = aes(x = index, y = engagement))+
facet_wrap(~settingTerrain)+
labs(x="Order Released",y="Engagement")
ggplotly(q2p4)
```
Column {data-width=500}
-----------------------------------------------------------------------
Column {data-width=500}
-----------------------------------------------------------------------
Example Text
=======================================================================
This third tab just has some example text.